home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / PCGTERMHAYES.ARC / PCGTERM HAYES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  200 lines
  1. 2 REM             PCG TERM   BY EGBELL    
  2. 3 IFOD%=1THENOD%=.:GOTO18
  3. 4 POKE686,37:POKE679,.:POKE685,.:POKE690,.:POKE691,.:POKE692,.:POKE693,.
  4. 6 POKE2062,32:PRINT"[147]"
  5. 8 GOSUB354:D=8:GOSUB352:GOSUB20027:SYS64931:OPEN5,2,.,CHR$(6):POKE665,75
  6. 10 GET#5,A$:SYS49173:POKE56,40:POKE52,40:D=PEEK(2065)
  7. 12 POKE247,0:POKE249,0:POKE248,52:POKE250,53:I$="PH.PAGE 1":GOSUB298
  8. 14 POKE53272,(PEEK(53272)AND240)OR10:SYS49167:BS=255:L=214:GOSUB68
  9. 18 A=53280:POKE56328,.:POKEA,.:POKEA+1,.:PRINT"[147]
  10. 20 [153]"DEF               LOGWAITPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSDEFCOS          LOG
  11. 22 PRINT"[150]         [190] [175][150]    [175][175][175][175][175][175][175][175][175]   [150]  "TAB(37)"[185][185]"
  12. 24 PRINT"[150]               [172][146]       "TAB(27)"  [182]
  13. 26 [153]"  "[163]9)"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR   DEF  "[163]37)"RND "
  14. 28 [153]"DEF  "[163]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWDEF"[163]27)"RND          *
  15. 30 POKEL,5:PRINT"[146][208][195][199] [212]ERM [214].5  [159][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174]
  16. 32 [153]"/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/PRINT BY EGBELL":B$[178]"CLRDEF  ":C$[178]" DEF WAIT - "
  17. 34 [153]" (LEN) 1988          ATNLL (null)IGHTS (null)ESERVED ":[151]14354,.:[143] CHECK1
  18. 36 [153]"DEFNEWNEWNEWNEWNEW":[153]B$"ATN"C$"(null)PLOAD":[153]B$"PEEK"C$"STR$OWNLOAD
  19. 38 PRINTB$"[195]"C$"[194]LOCK [211]IZE[153]"TAB(24)BS" ":PRINTB$"[196]"C$"[194]AUD "TAB(25)BR$
  20. 40 PRINTB$"[197]"C$"[212]ERMINAL [205]ODE":PRINTB$"[198]"C$"[196][207][211] [207]PS"TAB(24)"[153]"PEEK(2065)
  21. 41 PRINTB$"[199]"C$"[208]HONE [194]OOK
  22. 42 [153]B$"LEFT$"C$"ATNUTODIAL"[163]25)"PRINT1670 / LEFT$AYES":[153]B$"RIGHT$"C$"PEEKUFFER (null)PS
  23. 44 PRINTB$"[202]"C$"[200]I-[210]ES [207]PS":PRINTB$"[203]"C$"[198]ILE [207]PS":PRINTB$"[204]"C$;
  24. 46 PRINT"[195]APTURE [197]D":PRINTB$"[205]"C$"[195]LOCK[150]":PRINT"[184][184][184][184][184]"
  25. 48 POKE198,.:GOSUB20021
  26. 49 CH=PEEK(787):ONCHGOTO262,62,90,60,98,252,262,126,56,58,324,54,368,400
  27. 50 GOTO30
  28. 54 GOSUB20020:GOTO18:CAPTURE EDITOR
  29. 56 GOSUB20019:GOTO18:EDITOR
  30. 58 GOSUB20022:GOTO18:HI RES
  31. 60 GOSUB68:GOTO20
  32. 62 I$="@0:WRITEPROTECT,S,W":A=9:N=.:GOSUB248:POKEL,11:GOSUB316
  33. 64 GOSUB320:IFEGOTO18
  34. 66 GOTO262
  35. 68 POKE691,-(PEEK(691)=.):B3=PEEK(691)
  36. 70 CS=1.02273E6
  37. 72 POKE659,6-2*(B3=1):POKE660,.
  38. 74 BR$="300 ":IFB3THENBR$="1200
  39. 76 S[178][197](BR$)
  40. 78 RC[178]CS[173]S:[141]88:[151]49179,LO:[151]49180,HI:[143] PUNTER SPEED WEDGE
  41. 80 [139]S[178]1200[167]RC[178]CS[173]S[172].966:[141]88
  42. 82 [151]665,LO:[151]666,HI
  43. 84 RC[178]CS[173]S[173]2[171]100:[141]88
  44. 86 [151]661,LO:[151]662,HI:[142]
  45. 88 HI[178][181](RC[173]256):LO[178]RC[171](HI[172]256):[142]
  46. 90 [151]L,12:[153]:[153][163]25)"   CMDCMDCMD";:M[178]3:[141]104:[139]I$[178]""[137]20
  47. 92 BS[178][197](I$):[139]BS[179]40[167]BS[178]40
  48. 94 [139]BS[177]255[167]BS[178]255
  49. 96 [137]20
  50. 98 [153] "LOAD (null)ERMINAL (null)ODE  LISTASC8 VALXIT ":[153]:[141]20005
  51. 100 [153]"CLRTOCMDPRINT";:[141]20015:[137]18
  52. 102 M[178]20
  53. 104 I[178].:I$[178]"
  54. 106 PRINT"[164][157]";
  55. 108 GOSUB244:IFA=.GOTO108
  56. 110 IFA=13THENPRINT" ":RETURN
  57. 112 IFA=20GOTO122
  58. 114 IFA>132ANDA<141THENI$=PH$(A-132):PRINTI$:RETURN
  59. 116 IFLEN(I$)=MGOTO108
  60. 118 IF(AAND127)<32GOTO108
  61. 120 PRINTA$;:I$=I$+A$:GOTO106
  62. 122 IFLEN(I$)=.GOTO108
  63. 124 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO106
  64. 126 T0=PEEK(2064):IFT0<>16ANDT0<>20THENGOSUB404
  65. 128 DT$="P":IFPEEK(2064)=20THENDT$="T"
  66. 130 N1$="ATV0":GOSUB216:NT=.:GOSUB226:IFI$=""GOTO18
  67. 132 GOSUB312:GOSUB314
  68. 142 GOSUB238:N1$="ATV0"+"D"+DT$+N$:GOSUB216
  69. 144 GOSUB240:T2=TI+90:IFNT>1THENPRINT#5,"A/"
  70. 146 IFTI<T2THENGET#5,A$:GOTO146
  71. 148 T2=TI+1200:T1=TI
  72. 150 GET#5,A$:IFASC(A$+CHR$(.))>.GOTO98
  73. 155 GETB$:IFB$="S"THENPRINT#5,"A":T2=TI+380:Y=.:GOTO208
  74. 160 IFTI<T2GOTO150
  75. 165 PRINT#5,"A":T2=TI+180
  76. 170 IFTI<T2THENGET#5,A$:GOTO170
  77. 175 PRINT:PRINT"[145]";:SYS49173:GOTO144
  78. 208 IFTI<T2THENGET#5,A$,A$:GOTO208
  79. 212 GOTO18
  80. 216 PRINTMID$(N1$,7);:A=LEN(N1$):FORDE=1TOA:A$=MID$(N1$,DE,1)
  81. 217 PRINT#5,A$;:NEXT:PRINT#5:RETURN
  82. 218 A$=MID$(N$,I,1):A=VAL(A$):B=A-10*(A=.):RETURN
  83. 222 SI=54272:POKESI+24,15:POKESI+4,16:POKESI+11,16:POKESI+5,.:POKESI+12,.
  84. 224 POKESI+6,240:POKESI+13,240:POKESI+23,.:RETURN
  85. 226 GOSUB306:GOSUB314
  86. 228 PRINT" [206]UMBER [146][155] :";:GOSUB102:N$=I$:IFN$=""THENRETURN
  87. 230 GOSUB234:IFLEN(N$)<7THENGOSUB20005:GOTO226
  88. 232 RETURN
  89. 234 FORDE=1TO2200:NEXT:RETURN
  90. 236 FORDE=1TO200:NEXT:RETURN
  91. 238 GOSUB312:GOSUB314:PRINT"[155]> [211] <[146] [193]BORT":PRINT"[196]IALING  [155]";:RETURN
  92. 240 NT=NT+1:PRINTTAB(19)"[193]TTEMPT[155]:"NT" ";:RETURN
  93. 242 GOSUB244:PRINTA$"[157]";:GOSUB236:DF=VAL(A$):RETURN
  94. 244 POKE198,.:WAIT 198,1:GETA$:A=ASC(A$+CHR$(.)):RETURN
  95. 248 N=N-24*(N=.)
  96. 250 FORX=ATON:POKE781,X:SYS59903:POKE217+X,PEEK(217+X)OR128:NEXT:RETURN
  97. 252 GOSUB312:POKEL,10:PRINT:PRINT">> [155]$ [196]IRECTORY   [155]@# [211]ELECT [196]EVICE # <<
  98. 254 [153]"DEF>> LIST";:M[178]36:[141]104:[139]I$[178]""[137]18
  99. 256 [139][200](I$,1)[178]"@"[167][141]350:[137]18
  100. 258 [139]I$[178]"$"[167][141]20009:[137]18
  101. 259 [139][200](I$,1)[178]"$"[167][141]20010:[137]18
  102. 260 [152]15,I$:[141]318:[141]320:[137]252
  103. 262 [151]14360,BS:[141]312:[141]314:[153]"":DI$[178]",R":B$[178]"STR$IRECTORY ASCILE"
  104. 264 [139]CH[179]7[167]B$[178]"(null)END":[139]CH[178]2[167]B$[178]"(null)ECEIVE":DI$[178]",W
  105. 266 PRINTB$" :[155]";:M=16:GOSUB104:IFI$=""GOTO18
  106. 267 IFI$="$"ANDCH=7THENGOSUB500:GOTO262
  107. 268 N$=I$:GOSUB316:IFCH<>-(E=.)-2*(E=62)-6*(E=.ANDCH=7)THENGOSUB320:GOTO262
  108. 270 PRINT:IFCH>2GOTO298
  109. 272 PRINT"[[155][208]]RG  [[155][211]]EQ  [[155][213]]SR :[155]";
  110. 274 GOSUB242:IFA<>80ANDA<>85ANDA<>83GOTO274
  111. 276 POKE14363,1-(A=83ORA=85):N$=N$+","+A$+DI$:REM  51227
  112. 278 PRINT:PRINT"[145][[155][208]]UNTER   [[155][216]]MODEM [155]: [157]";
  113. 280 GOSUB242:XM=-(A=88):IFA<>88ANDA<>80GOTO280
  114. 282 A=11:N=.:GOSUB248:POKEL,9:PRINT:PRINTTAB(26)"[195][205][196][210] TO [193]BORT":POKEL,11
  115. 284 A$="[150]>[192][192][192][150][219][192][192][192][150]<":PRINT:PRINTA$"1"A$"2"A$"3"A$"4[146]":ONCHGOTO292
  116. 286 IFXM=.THENSYS49173:SYS49161:IFPEEK(512)=1GOTO296
  117. 288 GOSUB348:IFXM=.THENSYS61310:SYS49173:SYS49155:GOTO296
  118. 290 GOSUB20018:GOTO296:REM XMODEM DOWN
  119. 292 GOSUB348:IFXMTHENPOKE198,.:GOSUB20017:GOTO296: XMODEM UP
  120. 294 SYS49173:SYS49164:IFPEEK(512)=.THENSYS49173:SYS49158
  121. 296 GOSUB20023:CLOSE2:GOSUB20005:GOSUB234:GOTO98
  122. 298 GOSUB316:IFE>.THENRETURN
  123. 300 OPEN7,D,7,I$:FORZ=1TO9:INPUT#7,PH$(Z),CM$(Z):NEXT:INPUT#7,DF$:POKE2062,1
  124. 302 CLOSE7:IFCH<>7THENRETURN
  125. 304 GOSUB306:GOSUB360:GOSUB312:GOTO18
  126. 306 RESTORE:GOSUB312:POKEL,14:PRINT:IFPEEK(2062)>1THENRETURN:DATA "13572468
  127. 308 [135]A$:[129]X[178]1[164]8:[153]"LISTASC"[202](A$,X,1)"PRINTWAIT"[163]3)PH$(X)[163]20);
  128. 310 [153]"DEF "[200](CM$(X)[170]"                ",16)"DEF ":[130]:[142]
  129. 312 A[178]9:N[178].:[137]248
  130. 314 [151]L,8:[153]:[142]
  131. 316 [159]7,D,7,I$:[160]7
  132. 318 [132]15,E,E1$,E2$,E3$:[152]15,"I":[142]
  133. 320 [139]E[178].[176](E[178]62[175]CH[178]2)[167][142]
  134. 322 [153]:[153]">"[196](E)", "E1$", "E2$", "E3$" <":[141]20005:[141]360:[142]
  135. 324 [153]"LOADLIST1 ATNS ASCILED":C$[178]"ATNSCII
  136. 326 PRINT"[155]2 [211]CREEN "C$:PRINT"[155]3 [212]RUE "C$:PRINT"[155]4 [198]ONTS"
  137. 327 PRINT:PRINTTAB(7)"[155]?[157]";
  138. 328 GOSUB242:IFA=13GOTO18
  139. 330 IFA=36THENGOSUB20009:POKE212,.:GOTO324
  140. 332 IFDF<1ORDF>4GOTO328
  141. 333 IFDF=4THENGOSUB376:GOTO18
  142. 334 POKE681,DF-1:IFDF<>2THENPRINT:GOTO346
  143. 336 PRINT:PRINT""C$" [198]OR [195]ARRIAGE [210]ETURN
  144. 338 [153]"STR$EFAULT RIGHT$S 'DEF31' ASCOR DEF(null)PEEDSCRIPT":[153]:[153][163]7)"LIST?CMD";
  145. 340 M[178]3:[141]104:I[178][197](I$):[151]680,I[171]31[172](I[178].)
  146. 346 [151]14336,1:[141]20016:[141]20005:[141]362:[139]A$[178]"P"[167][141]20006
  147. 347 [137]324
  148. 348 [159]2,D,2,N$:[137]234
  149. 350 D[178][197]([202](I$,2)):[139]D[179]8[176]D[177]11[167]D[178]8
  150. 352 [151]2065,D:[160]15:[159]15,D,15,"I":[142]
  151. 354 [151]11040,255:[129]X[178]11041[164]11046:[151]X,195:[130]:[142]
  152. 360 [151]781,24:[158]59903:[151]214,22:[153]:[153]" ATNNY (null)EY "
  153. 362 [161]A$:[139]A$[178]""[137]362
  154. 364 [151]781,24:[158]59903:[142]
  155. 368 T$[178]"":A[178]9:[141]248:[151]L,9:[133]"(null)IME [LEFT$LEFT$(null)(null)(null)(null)] LIST";T$:[139]T$[178]""[167][142]
  156. 370 T$[178][200](T$[170]"000000",6)
  157. 372 X[178]5:[129]Y[178]1[164]3:[151]56328[170]Y,16[172][197]([202](T$,X,1))[170][197]([202](T$,X[170]1,1))
  158. 374 X[178]X[171]2:[130]:[151]56328,.:[137]18
  159. 376 I$[178]"$:FONT.*":[141]20010
  160. 378 I$[178]"FONT.":M[178]16:[151]781,1:[158]59903:[153]"(null)OAD :"I$"LIST";:[141]106
  161. 380 [139]I$[178]""[176]I$[178]"FONT."[137]18
  162. 384 OD%[178]1:[147] I$,8,1
  163. 400 [141]236:[152]5,"+++":[141]236:[152]5,"ATZ":[141]236:[152]5,"ATM0H0"
  164. 402 [141]236:[151]691,.:[141]68:[137]18
  165. 404 [141]312:[151]L,9:[153]:[153]"LIST(null)ONE  LIST(null)ULSE  "
  166. 406 [141]244:[139]A$[179][177]"T"[175]A$[179][177]"P"[137]406
  167. 408 [151]2064,A[175]31
  168. 410 [152]15,"S0:PCGTERM HAYES":[152]15,"I":[148]"PCGTERM HAYES",D:[142]
  169. 500 I$[178]"$:PH.*":[137]20010
  170. 2000 [143]  HALFDUP         = 679
  171. 2001 [143]  CARRIAGE RETURN = 680
  172. 2002 [143]  SPEEDSCRIPT     = 681
  173. 2003 [143]  WEDGE ENABLE    = 685
  174. 2004 [143]  WEDGE ESCAPE    = 686
  175. 2005 [143]  BAUD TOGGLE     = 691
  176. 2006 [143]  BUFFER ON/OFF   = 692
  177. 2007 [143]  FULL/HALF DUPLX = 693
  178. 2008 [143] CHECK1 PUNTER VARIABLE ALSO TERMINAL PREMATURE EXIT FOR SOME CALLERS
  179. 2009 [143] AT 14354. MUST = 0 FROM BASIC
  180. 2010 :
  181. 3000 [143]  DRIVE NUMBER    = 2065
  182. 3001 [143]  PUNTER 1200 WDG = 49179
  183. 3002 [143] CHECK1 PUNTER VARIABLE ALSO TERMINAL PREMATURE EXIT FOR SOME CALLERS
  184. 20005 [158]50910:[142]:  B[145]G
  185. 20006 [158]51435:[142]:  SCREEN DUMP
  186. 20009 [158]51894:[142]:  DIREC[164]RY
  187. 20010 [159]1,D,0,I$:[158]51923:[142]:  SPEC[139]IC DIREC[164]RY
  188. 20011 [158]52259:[142]:  FLIX
  189. 20015 [158]52878:[142]:  PRETERM
  190. 20016 [158]52985:[142]:  FILE[135]ER
  191. 20017 [158]52994:[142]:  XMODEM UP[147]
  192. 20018 [158]53004:[142]:  XMODEM DOWN[147]
  193. 20019 [158]53021:[142]:  [164]EDIT
  194. 20020 [158]53027:[142]:  [164]CAPTURE
  195. 20021 [158]53033:[142]:  [164]MENU
  196. 20022 [158]53039:[142]:  [164]DOODLER
  197. 20023 [139][194](512)[178].[167][158]53045:[142]:  SMILER
  198. 20024 [158]53051:[142]:  FROWN
  199. 20027 [158]53057:[142]:  [164]KOALASHO
  200.